﻿Public Class BCTelaEvento
    
    Public Shared Function CriarNovasTelasPadrao() As List(Of BE.BETelaEvento)
        Dim lstTelasPadrao As New List(Of BE.BETelaEvento)
        lstTelasPadrao.Add(New BE.BETelaEvento("Apresentação", 0, "", False))
        lstTelasPadrao.Add(New BE.BETelaEvento("Localização", 0, "", False))
        lstTelasPadrao.Add(New BE.BETelaEvento("Investimento", 0, "", False))
        lstTelasPadrao.Add(New BE.BETelaEvento("Palestrante", 0, "", False))
        lstTelasPadrao.Add(New BE.BETelaEvento("Inscrição", 0, "", False))
        lstTelasPadrao.Add(New BE.BETelaEvento("Programação", 0, "", False))
        Return lstTelasPadrao
    End Function

    Public Shared Function ListarTelas(ByVal strIdEvento As String) As List(Of BE.BETelaEvento)
        Dim objDATelasEvento As New DA.DATelasEvento
        Return objDATelasEvento.Listar(strIdEvento)
    End Function

    Public Shared Function SelecionarTela(ByVal strIdTela As String) As BE.BETelaEvento
        Dim objDATelasEvento As New DA.DATelasEvento
        Return objDATelasEvento.Selecionar(strIdTela)
    End Function

    Public Shared Sub DeletarTela(ByVal strIdTela As String)
        Dim objDATelasEvento As New DA.DATelasEvento
        objDATelasEvento.Deletar(strIdTela)
    End Sub
    Public Shared Sub IncluirNovaTela(ByRef lstTelas As List(Of BE.BETelaEvento), ByVal strNomeTela As String)
        Dim objBENovaTelaEvento As New BE.BETelaEvento
        Dim objDATelaEvento As New DA.DATelasEvento

        objBENovaTelaEvento.Nome = strNomeTela
        objBENovaTelaEvento.Ordem = 0
        objBENovaTelaEvento.Mostra = False
        objBENovaTelaEvento.IdEvento = lstTelas(0).IdEvento
        objBENovaTelaEvento.Conteudo = ""

        objBENovaTelaEvento.IdTela = objDATelaEvento.Salvar(lstTelas(0).IdEvento, objBENovaTelaEvento)

        lstTelas.Add(objBENovaTelaEvento)
    End Sub
    Public Shared Sub SalvarTela(ByVal strIdEvento As String, ByVal objBETelasEvento As BE.BETelaEvento)
        Dim objDATelasEvento As New DA.DATelasEvento
        objDATelasEvento.Salvar(strIdEvento, objBETelasEvento)

        ' PROCURAR IMAGENS E SALVAR NO DIRETORIO DELES, ALTERAR O CAMINHO
    End Sub
End Class
